AxisTitle Object Example

The following example makes the axis title visible for all axes of a three-dimensional chart.

Private Sub Command1_Click()
   ' Makes Axis title visible for all axes of a 
   ' 3D chart.
   Dim axisID As VtChAxisId
   MSChart1.chartType = VtChChartType3dBar
   For axisId = VtChAxisIdX To VtChAxisIdZ
      With MSChart1.Plot.axis(axisId, 1)
         .AxisTitle.VtFont.Size = 14
         .AxisTitle.Visible = True
         Select Case axisId
            Case 0
               .AxisTitle.text = "X Axis Title"
            Case 1
                .AxisTitle.text = "Y Axis Title"
            Case 2
               .AxisTitle.text = "2nd Y Axis Title"
            Case 3
               .AxisTitle.text = "Z Axis Title"
         End Select
      End With
   Next
End Sub